home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Telecommunications / WWIV Mac BBS / BBS Sample Source / modifyseclev.p < prev    next >
Encoding:
Text File  |  1987-06-21  |  18.3 KB  |  615 lines  |  [TEXT/ttxt]
  1. { BBS Utility program and documentation for all major BBS files }
  2. { Modify SecLev file - T R Teague - 17 Oct 86 }
  3. { This version works under Lisa Pascal/MPW }
  4. { modified for version 1.1 of WWIV Mac BBS - T R Teague - 1 Jan 87 }
  5. { modified for version 2.0 of WWIV Mac BBS - T R Teague - 22 Mar 87 }
  6. { modified for version 2.2 of WWIV Mac BBS - T R Teague - 25 May 87 }
  7.  
  8. {$DECL MPW}
  9. {$DECL Debug}
  10. {$SETC MPW := true}
  11. {$SETC Debug := false}
  12.  
  13. program ModifySecLev;
  14.  
  15. uses
  16. {$IFC MPW }
  17.      MemTypes,
  18.      QuickDraw,
  19.      OSIntf,
  20.      ToolIntf,
  21.      PackIntf,
  22.      PasLibIntf,
  23.      IntEnv;
  24. {$ELSEC}
  25.      {$U -#11-obj-MemTypes } MemTypes,
  26.      {$U -#11-obj-QuickDraw} QuickDraw,
  27.      {$U -#11-obj-OSIntf   } OSIntf,
  28.      {$U -#11-obj-ToolIntf } ToolIntf,
  29.      {$U -#11-obj-PackIntf } PackIntf,
  30.      {$U -#11-obj-WritelnWindow } WritelnWindow;
  31. {$ENDC}
  32.  
  33. {$IFC Debug}
  34. {$D+}
  35. {$ELSEC}
  36. {$D-}
  37. {$ENDC}
  38.  
  39. { Standard const's, types, vars for BBS files }
  40.  
  41. const
  42.      strlen = 160; { length of string }
  43.      
  44.      { added - TRT - 25 May 87 }
  45.      { user-modifable resources }
  46.  
  47.      StrID = 1000;
  48.      NumStrItems = 5;
  49.  
  50.      DLoadsStrID = 1001;
  51.      MsgsStrID = 1002;
  52.      numcomptypes = 11; { added for 2.2 - TRT - 21 Jun 87 }
  53.  
  54. type
  55.      filetype = file; { untyped file-type for procedure parameter passing }
  56.  
  57.      strtype=string[strlen]; { string type }
  58.  
  59. { enumerated list of user restrictions }
  60. { 
  61.   logons 2/day ('L'), no chatting ('C'), unvalidated messages ('V'), no backspacing ('B'),
  62.   can't change automsg/add to BBS list ('A'), can't post anonymous msgs ('*'),
  63.   can't post at all ('P'), can't send send E-Mail ('E'), can't vote ('K'),
  64.   can't auto-delete msgs ('M')
  65. }
  66. restrictions=(rlogon,rchat,rvalidate,rbackspace,ramsg,rpostan,
  67.                    rpost,remail,rvoting,rmsg); 
  68.  
  69.      acrq='@'..'G'; { board access : none, A -> G - not really used }
  70.  
  71. { emunerated user defaults : spinning cursor, onekey input, word wrap, screen pause }
  72.      deflts=(spcsr,onekey,wordwrap,pause);
  73.  
  74. { emunerated anon msg board types : no, yes, forced, dearabby }
  75.      anontyp=(no,yes,forced,dearabby); 
  76.  
  77. { enumerated security level types : can post, can E-Mail, can post anonymously, 
  78.   can see anon names on msgs,  co-sysop, limited co-sysop }
  79.      ansttype=(postn,emailn,pana,sanm,cosysop,lcosysop);
  80.  
  81. { enumerated special user alerts : alert, can't ???, can't receive E-Mail }
  82.      opts=(myalert,smw,nomail); 
  83.      
  84.      { modified for version 1.1 & 2.0 }
  85.      pnr=record { phone no. info - for sysop's mini-terminal }
  86.            name:string[39]; { name of BBS service }
  87.            number:string[32]; { phone no. } 
  88.            hs:byte; { baud rate - 300/1200/2400/9600 }
  89.          end;
  90.      slr=record { security level info }
  91.            ttime:byte; { max. no. of mins allowed on }
  92.            mallowed:integer; { max. no. of msgs allowed to be read }
  93.            emails,posts:byte; { max. no. of E-Mail and msgs to be posted }
  94.            anst:set of ansttype; { set of security level types  - see above }
  95.          end;
  96.      messages=record { msgs filename info  - e.g filename of form A-32767.1 }
  97.                 ltr:char; { board letter (i.e. A = board no. 1) }
  98.                 number:integer; { unique msg number }
  99.                 ext:byte; { unique msg number for filename extension (MS-DOS) }
  100.               end;
  101.      smalrec=record { names list of users }
  102.                name:string[25]; { alias }
  103.                number:integer; { user no. }
  104.              end;
  105.      userrec=record { user info }
  106.                name:string[25]; { alias }
  107.                realname:string[14]; { realname }
  108.                deleted:boolean; { deleted flag }
  109.                pw:string[8]; { password }
  110.                ph:string[12]; { phone no. }
  111.                waiting:byte; { no. of E-Mail msgs waiting }
  112.                laston:string[10]; { last on date }
  113.                loggedon:integer; { total no. of times logged on system }
  114.                msgpost:integer; { total no. of msgs posted }
  115.                emailsent:integer; { total no. of E-Mail msgs sent }
  116.                feedback:integer; { total no. of feedback msgs sent }
  117.                linelen:byte; { user's screen width }
  118.                pagelen:byte; { user's screen height }
  119.                defaults:set of deflts; { set of user defaults (on/off) - see above }
  120.                ontoday:byte; { no. of times logged on today }
  121.                illegal:byte; { no. of illegal logons today }
  122.                cursor:string[10]; { spinning cursor (if any) "word" }
  123.                sl:byte; { security level }
  124.                ac:set of restrictions; { set of user restrictions (on/off) - see above }
  125.                ar:set of acrq; { set of boards user has access to (on/off) - not really used - see above }
  126.                qscan:array[1..19] of messages; { last msg Q-scanned for each 1 of 19 possible boards }
  127.                qscn:array[1..19] of boolean; { configured Q-Scan flags for up to 19 boards }
  128.                macro:array[1..2] of string[79]; { control-d & control-f macro expansions }
  129.                comptype:byte; { computer type (1 -> numcomptypes) as set up elsewhere }
  130.                option:set of opts; { set of user options (on/off) - see above }
  131.                vote:array[1..9] of byte; { voted flags for up to 9 questions }
  132.                sbn:byte; { "special board no." - user has rights to validate/delete msgs on board (0 = All) }
  133.                dsl:byte; { download security level }
  134.                uploads,downloads:integer; { No. of files uploaded/downloaded }
  135.                uk,dk:integer; { No. of Kb's uploaded/downloaded }
  136.              end;
  137.       boardrec=record { msg board info }
  138.                  name:string[25]; { board title }
  139.                  filename:string[12]; { name of file used to hold msgs info }
  140.                  sl:byte; { min. security level needed to access this board }
  141.                  maxmsgs:byte; { max. no. of msgs allowed on this board }
  142.                  pw:string[10]; { board password (if any) }
  143.                  anonymous:anontyp; { type of anonymous access to this board - see above }
  144.                  ar:acrq; { access required for this board (not really used) - see above }
  145.                  key:char; { character required to reach this board - i.e. 1 -> 19, or this char }
  146.                end;
  147.       msgstat=(validated,unvalidated,deleted); { enumerated msg types - validated, unvalidated, deleted }
  148.       messagerec=record { msgs info }
  149.                    title:string[30]; { title of msg }
  150.                    messagestat:msgstat; { msg type - see above }
  151.                    message:messages; { msg filename info - see above }
  152.                    owner:integer; { user no. of sender }
  153.                    date:integer; { date posted }
  154.                    mage:byte; { message age in days }
  155.                  end;
  156.       systatrec=record { status record }
  157.                   boardpw:string[8]; { closed board password (if any) }
  158.                   sysoppw:string[8]; { sysop's 2nd password }
  159.                   hmsg:messages; { msg filename info - next avail. msg filename ??? }
  160.                   users:integer; { no. of users currently on system }
  161.                   lastdate:string[8]; { last date that system was used }
  162.                   callernum:integer; { current/next caller no. }
  163.                   activetoday:integer; { amount of time in mins that system was up }
  164.                   callstoday:integer; { no. of calls today }
  165.                   msgposttoday:integer; { no. of msgs posted today }
  166.                   emailtoday:integer; { no. of E-Mail msgs sent today }
  167.                   fbacktoday:integer; { no. of Feedback msgs sent today }
  168.                   uptoday:integer; { no. of uploads today }
  169.                   closedsystem:boolean; { closed system flag }
  170.                 end;
  171.       mailrec=record { E-Mail info }
  172.                 title:string[30]; { title of msg }
  173.                 from,destin:integer; { user no. of sender, recipient }
  174.                 msg:messages; { msg filename info - see above }
  175.                 date:integer; { date sent }
  176.                 mage:byte; { message age in days }
  177.               end;
  178.       gft=record { G-Files info }
  179.             num:integer; { section no. }
  180.             title:string[40]; { G-File title }
  181.             filen:string[12]; { G-File filename }
  182.           end;
  183.       charfil=text; { character file type }
  184.       smr=record { small msg info }
  185.             msg:strtype; { the msg }
  186.             destin:integer; { user no. of recipient }
  187.           end;
  188.       vdatar=record { voting data info }
  189.                question:string[79]; { question }
  190.                numa:integer; { no. of answers }
  191.                answ:array[0..9] of record { 10 possible answers }
  192.                       ans:string[25]; { answer }
  193.                       numres:integer; { number of users voting this answer }
  194.                     end;
  195.              end;
  196.       ulrec=record { file section board data }
  197.               name:string[25]; { name of board }
  198.               filename:string[12]; { name of file that holds file section data }
  199.               password:string[10]; { board password (if any) }
  200.               dsl:byte; { min. security level needed to access this board }
  201.               maxfiles:integer; { max. no. of files allowed in this board }
  202.             end;
  203.       ulfrec=record { uploaded file info }
  204.                filename:string[12]; { filename }
  205.                description:string[60]; { description }
  206.                {res:array[1..17] of byte;} { reserved ??? }
  207.            realname : string[64]; { added for version 1.1 - MacBinary filename }
  208.                ft:array[1..3] of byte; { filetype - not really used (MS-DOS) }
  209.                blocks:integer; { size in blocks }
  210.                owner:integer; { user no. of uploader }
  211.                date:string[8]; { date uploaded }
  212.                daten:integer; { day no. of the year when uploaded }
  213.            numdloads : integer; { added for version 1.1 }
  214.              end;
  215.  
  216. var 
  217.     (* { file vars for different types of files }
  218.     
  219.     sf:file of smalrec; { filename = gfiles\names.lst }
  220.     uf:file of userrec; { filename = gfiles\user.lst }
  221.     bf:file of boardrec; { filename = gfiles\boards.dat }
  222.     mf:file of messagerec; { filename = gfiles\ + boards[board].filename }
  223.     mailfile:file of mailrec; { filename = gfiles\email.dat }
  224.     systatf:file of systatrec; { filename = gfiles\status }
  225.     smf:file of smr; { filename = gfiles\shortmsg.dat }
  226.     ulf : file of ulrec; { filename = gfiles\uploads.dat }
  227.     ulff : file of ulfrec; { filename = gfiles\ + uboards[board].filename }
  228.     fil : file of pnr; { filename = gfiles\numbers.trm }
  229.     vdf : file of vdatar; { filename = gfiles\voting.dat }
  230.     cf : file of smr; { filename = gfiles\chat.msg }
  231.     g : file of gft; { filename = gfiles\gfiles.dat }
  232.     fil : file of strtype; { filename = gfiles\laston.fil - names of last 8 callers }
  233.     
  234.     sysopf:charfil; { filename = gfiles\sysop.log, and gfiles\ysysop.log - today's & yesterday's logs }
  235.     { also other text files : gfiles\trashcan.txt - contains illegal names for aliases }
  236.     { gfiles\user.log - log of today's callers names }
  237.     { gfiles\votes.txt - output of voting data }
  238.     { gfiles\bbslist.msg - list of bbs's }
  239.     { gfiles\auto.msg - auto msg }
  240.     *)
  241.     
  242.     { modified - TRT - 25 May 87 }
  243.     {actual variables used by this program }
  244.     gfilespath : strtype;
  245.     pathdloads : strtype;
  246.     pathmsgs : strtype;
  247.  
  248.     msgspath : packed array [0..19] of string[80];
  249.     dloadspath : packed array [0..19] of string[80];
  250.     tempPtr : ^integer;
  251.     DefaultWD : integer;
  252.     UsingHFS : boolean;
  253.  
  254.     MyPoint : Point;
  255.     BBSrefNum : integer;
  256.     MyTypes : SFTypeList;
  257.     MyReply : SFReply;
  258.     IOError : OSErr;
  259.     
  260.     fw:integer;
  261.         slf:file of slr; { filename = gfiles\seclev.dat }
  262.         seclev:array[0..255] of slr;
  263.  
  264. {$IFC Debug}
  265. {procedure CrashIt;    INLINE $A9FF;}
  266. {$ENDC}
  267.  
  268. { added - TRT - 25 May 87 }
  269. procedure InitCommon;
  270.  
  271. var
  272.    tempHandle : Handle;
  273.    tempint : integer;
  274.  
  275. begin { initcommon }
  276.    tempHandle := GetResource('STR#',StrID);
  277.    if (ResError <> noErr) or (tempHandle = nil) then
  278.    begin
  279.       writeln;
  280.       writeln('Sorry... couldn''t find the Resource STR# ID = ',StrID);
  281.       writeln;
  282.       writeln('Press mouse button to exit');
  283.       repeat until button;
  284.       exit(modifyseclev);
  285.    end;
  286.  
  287.    for tempint := 1 to NumStrItems do
  288.    begin { get user definable parameters from Resource file }
  289.  
  290.       case tempint of
  291.       1 : ;
  292.       2 : ;
  293.       3 : begin
  294.              GetIndString(tempstr,StrID,tempint);
  295.              gfilespath := tempstr;
  296.           end;
  297.       4 : begin { modified - TRT - 20/12/86 }
  298.              GetIndString(tempstr,StrID,tempint);
  299.              pathdloads := tempstr;
  300.           end;
  301.       5 : begin
  302.              GetIndString(tempstr,StrID,tempint);
  303.              pathmsgs := tempstr;
  304.           end;
  305.       end; { cases }
  306.    end;
  307.  
  308.    for tempint := 0 to 19 do
  309.    { get user definable parameters from Resource file }
  310.    begin
  311.       GetIndString(tempstr,MsgsStrID,tempint + 1);
  312.       if tempstr = '' then tempstr := pathmsgs;
  313.       msgspath[tempint] := tempstr;
  314.    end;
  315.  
  316.    for tempint := 0 to 19 do
  317.    { get user definable parameters from Resource file }
  318.    begin
  319.       GetIndString(tempstr,DLoadsStrID,tempint + 1);
  320.       if tempstr = '' then tempstr := pathdloads;
  321.       dloadspath[tempint] := tempstr;
  322.    end;
  323.  
  324. end; { initcommon }
  325.  
  326. begin
  327. {$IFC Debug}
  328.    {CrashIt;}
  329. {$ENDC}
  330.    InitGraf(@ThePort); { Init QuickDraw }
  331.  
  332. {$IFC MPW}
  333. if IEStandalone then
  334. {$ENDC}
  335.     begin { not MPW Tool }
  336.            InitWindows;           { Init Window Manager - clear desktop & menu bar }
  337.            InitFonts;           { Init Font Manager }
  338.            FlushEvents(everyEvent,0); { Throw away any stray events }
  339.            TEInit;          { Init TextEdit }
  340.            InitMenus;           { Init Menu Manager }
  341.            InitDialogs(nil);
  342.  
  343.            DrawMenuBar;
  344.  
  345.            InitCursor;
  346.    end;
  347.  
  348. {$IFC Debug}
  349. {$IFC MPW}
  350.    rewrite(debugger,'Dev:StdErr');
  351.    PLSetVBuf(debugger,nil,_IONBF,0); { no buffering, for MPW }
  352. {$ELSEC}
  353.    rewrite(debugger,'.aout');
  354. {$ENDC}
  355.    lf := chr(32);
  356.    writeln(debugger,'Debugging On...',lf);
  357. {$ENDC}
  358.  
  359. {$IFC MPW}
  360.    PLSetVBuf(output,nil,_IONBF,0); { no buffering, for MPW }
  361. {$ELSEC}
  362.  
  363.    WWInit(25,80);
  364.  
  365.    SetRect(tempRect,20,50,500,300);
  366.    WWNew(tempRect,'Modify SecLev',false,true,monaco,9);
  367.  
  368. {$ENDC}
  369.  
  370.     tempPtr := pointer($3F6); { fsFCBLen }
  371.     UsingHFS := tempPtr^ > 0;
  372.     IOError := GetVol(@tempstr,DefaultWD);
  373.  
  374.     { added - TRT - 25 May 87 }
  375.     writeln;
  376.     writeln('Choose the BBS File to Get Pathnames etc from');
  377.     writeln;
  378.  
  379.     MyPoint.h := 90; MyPoint.v := 30;
  380.     SFGetFile(MyPoint,'',nil,-1,MyTypes,nil,MyReply);
  381.     if MyReply.good then
  382.     begin
  383.        if UsingHFS then
  384.        begin
  385.       IOError := SetVol(nil,MyReply.vRefNum);
  386.       if IOError <> noErr then
  387.       begin
  388.          writeln;
  389.          writeln('I/O Error #',IOError,' while doing SetVol of ',MyReply.vRefNum);
  390.          writeln;
  391.       end;
  392.        end;
  393.  
  394.        BBSrefNum := OpenResFile(MyReply.fName);
  395.        if ResError <> noErr then
  396.        begin
  397.       writeln;
  398.       writeln('Resource Error #',ResError,' while doing OpenResFile');
  399.       writeln;
  400.        end;
  401.  
  402.        { IMPORTANT - do not call other CODE segments while BBS 
  403.                      ResFile is open - it won't work! }
  404.  
  405.        InitCommon;
  406.  
  407.        if (BBSrefNum >= 0) then CloseResFile(BBSrefNum);
  408.  
  409.        if UsingHFS then
  410.        begin
  411.       IOError := SetVol(nil,DefaultWD);
  412.       if IOError <> noErr then
  413.       begin
  414.          writeln;
  415.          writeln('I/O Error #',IOError,' while doing SetVol of ',DefaultWD);
  416.          writeln;
  417.       end;
  418.        end;
  419.  
  420.        rewrite(slf,concat(gfilespath,'seclev.dat'));
  421.        for fw := 0 to 255 do { these are the defaults used by the BBS for each security level }
  422.     with seclev[fw] do
  423.     begin
  424.       anst := [];
  425.     
  426.       if fw < 10 then
  427.       begin
  428.          ttime := 1;
  429.          mallowed := 1;
  430.          emails := 0;
  431.          posts := 0;
  432.       end else
  433.       if fw < 18 then
  434.       begin
  435.          ttime := 10;
  436.          mallowed := 15;
  437.          emails := 0;
  438.          posts := 0;
  439.       end else
  440.       if fw = 18 then
  441.       begin
  442.          ttime := 5;
  443.          mallowed := 5;
  444.          emails := 0;
  445.          posts := 1;
  446.       end else
  447.       if fw = 19 then
  448.       begin
  449.          ttime := 10;
  450.          mallowed := 10;
  451.          emails := 1;
  452.          posts := 1;
  453.       end else
  454.       if fw < 25 then
  455.       begin
  456.          ttime := 15;
  457.          mallowed := 20;
  458.          emails := 2;
  459.          posts := 2;
  460.       end else
  461.       if fw < 30 then
  462.       begin
  463.          ttime := 17;
  464.          mallowed := 25;
  465.          emails := 2;
  466.          posts := 3;
  467.       end else
  468.       if fw < 35 then
  469.       begin
  470.          ttime := 20;
  471.          mallowed := 30;
  472.          emails := 2;
  473.          posts := 3;
  474.       end else
  475.       if fw < 40 then
  476.       begin
  477.          ttime := 25;
  478.          mallowed := 40;
  479.          emails := 3;
  480.          posts := 4;
  481.       end else
  482.       if fw < 45 then
  483.       begin
  484.          ttime := 30;
  485.          mallowed := 50;
  486.          emails := 4;
  487.          posts := 4;
  488.       end else
  489.       if fw < 50 then
  490.       begin
  491.          ttime := 35;
  492.          mallowed := 60;
  493.          emails := 4;
  494.          posts := 4;
  495.       end else
  496.       if fw < 55 then
  497.       begin
  498.          ttime := 40;
  499.          mallowed := 70;
  500.          emails := 5;
  501.          posts := 5;
  502.       end else
  503.       if fw < 60 then
  504.       begin
  505.          ttime := 45;
  506.          mallowed := 75;
  507.          emails := 5;
  508.          posts := 5;
  509.       end else
  510.       if fw < 65 then
  511.       begin
  512.          ttime := 50;
  513.          mallowed := 85;
  514.          emails := 5;
  515.          posts := 5;
  516.       end else
  517.       if fw < 70 then
  518.       begin
  519.          ttime := 55;
  520.          mallowed := 90;
  521.          emails := 5;
  522.          posts := 6;
  523.       end else
  524.       if fw < 75 then
  525.       begin
  526.          ttime := 60;
  527.          mallowed := 100;
  528.          emails := 6;
  529.          posts := 6;
  530.          anst := anst + [pana];
  531.       end else
  532.       if fw < 80 then
  533.       begin
  534.          ttime := 65;
  535.          mallowed := 115;
  536.          emails := 6;
  537.          posts := 6;
  538.          anst := anst + [pana];
  539.       end else
  540.       if fw < 90 then
  541.       begin
  542.          ttime := 65;
  543.          mallowed := 120;
  544.          emails := 6;
  545.          posts := 6;
  546.          anst := anst + [pana,sanm];
  547.       end else
  548.       if fw < 95 then
  549.       begin
  550.          ttime := 70;
  551.          mallowed := 150;
  552.          emails := 6;
  553.          posts := 6;
  554.          anst := anst + [pana,sanm,postn];
  555.       end else
  556.       if fw < 99 then
  557.       begin
  558.          ttime := 70;
  559.          mallowed := 200;
  560.          emails := 6;
  561.          posts := 6;
  562.          anst := anst + [pana,sanm,postn,emailn];
  563.       end else
  564.       if fw = 99 then
  565.       begin
  566.          ttime := 70;
  567.          mallowed := 200;
  568.          emails := 6;
  569.          posts := 6;
  570.          anst := anst + [pana,sanm,postn,emailn,lcosysop];
  571.       end else
  572.       if fw = 100 then
  573.       begin
  574.          ttime := 85;
  575.          mallowed := 300;
  576.          emails := 6;
  577.          posts := 6;
  578.          anst := anst + [pana,sanm,postn,emailn,cosysop];
  579.       end else
  580.       if fw < 200 then
  581.       begin
  582.          ttime := 90;
  583.          mallowed := 500;
  584.          emails := 6;
  585.          posts := 6;
  586.          anst := anst + [pana,sanm,postn,emailn,cosysop];
  587.       end else
  588.       if fw < 255 then
  589.       begin
  590.          ttime := 100;
  591.          mallowed := 1000;
  592.          emails := 10;
  593.          posts := 10;
  594.          anst := anst + [pana,sanm,postn,emailn,cosysop];
  595.       end else
  596.       begin { sysop }
  597.          ttime := 255;
  598.          mallowed := 32767;
  599.          emails := 255;
  600.          posts := 255;
  601.          anst := anst + [pana,sanm,postn,emailn,cosysop];
  602.       end;
  603.     
  604.       slf^ := seclev[fw];
  605.       put(slf);
  606.     end;
  607.  
  608. {$IFC MPW}
  609.       close(slf);
  610. {$ELSEC}
  611.       close(slf,lock);
  612. {$ENDC}
  613.    end;
  614. end.
  615.